home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
LANG
/
BASIC
/
LIB
/
EVENTSHELL
/
REDRAW
/
!Redraw
/
!Run
< prev
next >
Wrap
Text File
|
1995-11-02
|
756b
|
18 lines
|ForceCFS
| !Run Obey file for Redraw Application
Set Redraw$Dir <Obey$Dir>
Set Redraw$BasicFile <Obey$Dir>.!Redraw
IF "<EvntShell$Path>"="" THEN ERROR 0 Shell resources not found
IconSprites <Obey$Dir>.!Sprites
WimpSlot -min 256K -max 256K
|Load any modules required now
RMEnsure InterfaceManager 2.00 RMLoad <EvntShell$Path>Interface
RMEnsure InterfaceManager 2.00 Error Couldn't load Interface module
RMEnsure MenuUtils 0.11 RMLoad <EvntShell$Path>MenuUtils
RMEnsure MenuUtils 0.11 Error 0 Error Couldn't load MenuUtils Module
RMEnsure MessageTrans 0.06 RMLoad <EvntShell$Path>MsgTrans
RMEnsure MessageTrans 0.06 Error Couldn't load MsgTrans Module
|And check that there is still enough memory!
WimpSlot -min 256K -max 256K
Run <Redraw$Dir>.!Redraw %*0